BBS in a Box 15/BBS in a box XV-2.iso/Files II/Prog/B-C/CW TCL port package.sit/CW TCL port package/*TCL source.diff

Text File | 1994-05-26 | 67.1 KB | 3,120 lines

r(Supplementary Info)
fCApplication AE fns.doc
i
fCClipboard AE fns.doc
i
fCDocument AE fns.doc
i
fCEnvirons.doc
i
fCFileElement.doc
i
fConverting To TCL 2.0.doc
i
fCPICTGridDirector.doc
i
fCSwitchboard AE fns.doc
i
fCWindow AE fns.doc
i
fResource TMPLs.doc
i
fUsing CSaver.doc
i
o
rApple Event Classes
fCAppleEvent.cp
x68074689,520550777
c0,26
a#include <AERegistry.h>                    // •• CW TCL
c27,631
e
fCAppleEvent.h
x275804591,25037120
c0,18
a#include "TCL.h"                        // •• CW TCL
c24,24
c19,109
e
fCAppleEventObject.cpp
x47651295,460537743
c0,1882
a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
a    catch_all_()                        // •• CW TCL
a    {                                    // •• CW TCL
a        err = gLastError;                // •• CW TCL
a        msg = gLastMessage;                // •• CW TCL
a    }                                    // •• CW TCL
a#else                                    // •• CW TCL
c1883,1892
a#endif                                    // •• CW TCL
c1893,2346
e
fCAppleEventObject.h
x26395287,278913058
c0,17
a#include "TCL.h"                            // •• CW TCL: removed <>
c19,19
a#ifndef __AEOBJECTS__                        // •• CW TCL
a#include <AEObjects.h>                        // •• CW TCL
a#endif                                        // •• CW TCL
c19,38
a    TCL_DECLARE_CLASS;
c40,231
e
fCAppleEventSender.cpp
x261427134,225092234
c0,13
a#include "Exceptions.h"                        // •• CW TCL: removed <>
c15,17
a#include "CSwitchboard.h"                    // •• CW TCL: removed <>
a#include "CWatchDesc.h"                        // •• CW TCL: removed <>
a#include "Global.h"                            // •• CW TCL: added missing header
c20,291
e
fCAppleEventSender.h
i
fCFileElement.cpp
x14551318,178064652
c0,25
a#include "TCLpstring.h"                        // •• CW TCL
c26,230
e
fCFileElement.h
x2124713,389083163
c0,21
a//#ifdef BR_USE_NEW_HELPER                        // •• CW TCL
a//class CFileElement TCL_AUTO_DESTRUCT_OBJECT , public CAppleEventObject
a//#else                                            // •• CW TCL
aclass CFileElement : public CAppleEventObject
a//#endif                                        // •• CW TCL
c23,55
e
fCProperty.cpp
x448828269,50593216
c0,13
a#ifdef __MWERKS__                        // •• CW TCL
a#include <AERegistry.h>                    // •• CW TCL
a#endif                                    // •• CW TCL
c15,15
c14,150
e
fCProperty.h
x249114375,359604295
c0,18
a//#ifdef BR_USE_NEW_HELPER                        // •• CW TCL
a//class CProperty TCL_AUTO_DESTRUCT_OBJECT , public CAppleEventObject
a//#else                                            // •• CW TCL
aclass CProperty : public CAppleEventObject        // •• CW TCL
a//#endif                                        // •• CW TCL
c20,47
e
fCWatchDesc.cpp
x37982565,20094356
c0,14
a#ifdef __MWERKS__                    // •• CW TCL
a#include "Global.h"                    // •• CW TCL
a#endif                                // •• CW TCL
c20,20
c15,37
e
fCWatchDesc.h
i
o
rBedrock Exception Library
fBEL #includes.cpp
i
rBRCommon
fBRCommon.h
i
fBRMacWin.h
i
fBRMath.h
i
fBRPriMem.h
i
fBRPriStr.h
i
fBRStdDef.h
i
o
rBRDebug
fBRDbgStr.h
i
fBRPriDeb.h.bed
i
o
rBRExcLib
rHeaders
fBRAutoDe.h
x58937606,344811093
c0,19
a// #define BR_USE_NEW_HELPER                // •• CW TCL: use the setting in precompiled headers
c21,92
a#ifdef BR_USE_NEW_HELPER                // •• CW TCL
c93,96
a#endif                                    // •• CW TCL
c97,99
e
fBRBedExc.h
i
fBRBreakC.h
i
fBRDelSta.h
i
fBRExcDef.h
x533666636,294218477
c0,82
a#ifndef __MWERKS__                            // •• CW TCL
c83,84
a        new(_BR_CBedNewHelper(::operator new(), ::operator delete())) class##args, \
c86,87
a#else // #ifndef __MWERKS__                    // •• CW TCL
c77,78
a        new(new _BR_CBedNewHelper(::operator new, ::operator delete)) class##args, \
c86,87
a#endif // #ifndef __MWERKS__                // •• CW TCL
c91,91
c102,102
c90,296
e
fBRExcept.h
i
fBRExcLib.h
i
fBRExcLog.h
i
fBRExcRun.h
i
fBRExcTas.h
i
fBRNewHel.h
i
fBROnStac.h
x309072200,179823336
c0,15
a#ifdef TCL_POWER_PC                        // •• CW TCL
a    int _BR_BedIsOnStack(void *);        // •• CW TCL
a#else                                    // •• CW TCL
c16,17
c39,39
a#ifdef __MWERKS__                        // •• CW TCL
c39,39
aextern "C" {
c39,39
a    #if USES68KINLINES
a    #pragma parameter __D0 _BR_BedIsOnStack(__A0)
a    #endif
c21,21
a        NINEWORDINLINE(0x7000, 0xBFC8, 0x6408, 0xB1F8, 0x0908, 0x6202, 0x7001, 0x4880, 0x48C0);
a
c23,23
c39,39
a#else // #ifdef __MWERKS__                // •• CW TCL
c39,39
c42,44
c21,23
c39,39
a#endif // #ifdef __MWERKS__                // •• CW TCL
c48,48
c25,90
a#endif // ## ifdef TCL_POWER_PC            // •• CW TCL
c106,106
c103,103
c106,106
c93,154
e
fBRPostEx.h
i
fBRPriDeb.h
x242883629,259231245
c0,107
a#ifndef TCL_NO_DEBUGGER_CALLS                        // •• CW TCL
c108,108
a#else                                                // •• CW TCL
a#define BR_PRIMITIVE_DEBUGGER_BREAK() ((void)0)        // •• CW TCL
a#endif                                                // •• CW TCL
c109,178
e
fBRSExcep.h
i
fBRSExcLo.h
i
fBRSPostE.h
i
fBRTryBlo.h
i
o
o
rBRRunTyp
fBRClaInf.h
x477857840,519359822
c0,23
a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL: this macro is irrelevant in
a//                                                //        the DR/3 port, we want any reference
a//                                                //        to it to cause a compilation error
c24,26
a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE
c27,173
a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c174,180
a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c175,175
c179,179
a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
c184,184
a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c182,183
a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c182,182
a    _##name##_gAncestors
a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
c196,196
c196,196
a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c245,245
c190,191
c188,195
a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c186,186
a        BR_CClassInfo BR_SHARED_DATA \
a            _##name##_gClassInfo(#name, sizeof(name), _##name##_gAncestors); \
a        BR_CClassInfo& name::BedStaticGetClassInfo() { return _##name##_gClassInfo; } \
a        BR_ClassReference* name::BedGetAncestors() { return _##name##_gAncestors; }
a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
c202,202
a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c197,235
a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c197,197
a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
c199,203
a    extern BR_CClassInfo _##ancestor##_gClassInfo; \
a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
c199,199
a        &_##ancestor##_gClassInfo, \
c200,202
c210,210
a    extern BR_CClassInfo _##ancestor1##_gClassInfo; \
a    extern BR_CClassInfo _##ancestor2##_gClassInfo; \
a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
c199,199
a        &_##ancestor1##_gClassInfo, \
a        &_##ancestor2##_gClassInfo, \
c200,202
c218,218
a    extern BR_CClassInfo _##ancestor1##_gClassInfo; \
a    extern BR_CClassInfo _##ancestor2##_gClassInfo; \
a    extern BR_CClassInfo _##ancestor3##_gClassInfo; \
a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
c199,199
a        &_##ancestor1##_gClassInfo, \
a        &_##ancestor2##_gClassInfo, \
a        &_##ancestor3##_gClassInfo, \
c200,202
c227,227
a    extern BR_CClassInfo _##ancestor1##_gClassInfo; \
a    extern BR_CClassInfo _##ancestor2##_gClassInfo; \
a    extern BR_CClassInfo _##ancestor3##_gClassInfo; \
a    extern BR_CClassInfo _##ancestor4##_gClassInfo; \
a    BR_ClassReference BR_SHARED_DATA _BR_CLASS_ANCESTORS(name)[] = \
c199,199
a        &_##ancestor1##_gClassInfo, \
a        &_##ancestor2##_gClassInfo, \
a        &_##ancestor3##_gClassInfo, \
a        &_##ancestor4##_gClassInfo, \
c200,201
a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c265,265
c237,244
a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL
c174,174
c246,259
a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL
c246,247
a        static BR_CClassInfo& BedStaticGetClassInfo(); \
a        static BR_ClassReference* BedGetAncestors();
a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE    // •• CW TCL
c291,291
c261,332
e
fBRClaInf.h.bed
i
fBRClaInf.h.tcl
i
fBRRunTyp.h
i
o
rBRTaskG
fBRBedTas.h
i
fBRTaskG.h
i
o
rSource
fBRAutoDe.cpp
x201066891,424115557
c0,24
a#ifndef __MWERKS__                        // •• CW TCL
c25,25
a#endif                                    // •• CW TCL
c26,147
e
fBRBedExc.cpp
x278777037,501825703
c0,16
a#ifndef __MWERKS__                        // •• CW TCL
c17,17
a#endif                                    // •• CW TCL
c18,75
e
fBrBedTas.cpp
x338887648,96927452
c0,115
a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
c116,116
a#endif                                        // •• CW TCL
c117,124
e
fBRBreakC.cpp
x328512583,237548315
c0,20
a#ifndef __MWERKS__                            // •• CW TCL
c21,21
a#endif                                        // •• CW TCL
c22,49
e
fBRClaInf.cpp
x531482884,227434933
c0,92
a
a        if (ancestors == 0)                        // •• CW TCL: sometimes ancestors isn't filled in
a            return FALSE;                        // •• CW TCL
c93,136
e
fBRDelSta.cpp
x523569304,209703026
c0,40
a#ifndef __MWERKS__                        // •• CW TCL
c41,41
a#endif                                    // •• CW TCL
c42,420
e
fBRExcept.cpp
x228670602,340246248
c0,22
a#ifndef __MWERKS__                    // •• CW TCL
c23,23
a#endif                                // •• CW TCL
c24,91
e
fBRExcLog.cpp
x311909883,534914517
c0,32
a#ifndef __MWERKS__                        // •• CW TCL
c33,33
a#endif                                    // •• CW TCL
c34,148
e
fBRExcRun.cpp
x92290269,382587829
c0,38
a#ifndef __MWERKS__                    // •• CW TCL
c39,39
a#endif                                // •• CW TCL
c40,368
a#ifndef __MWERKS__                            // •• CW TCL
c369,370
a#endif // #ifndef __MWERKS__                // •• CW TCL
c371,395
e
fBRExcTas.cpp
x170324314,393372980
c0,40
a#ifndef __MWERKS__                        // •• CW TCL
c41,41
a#endif                                    // •• CW TCL
c42,63
e
fBRNewHel.cpp
x294702045,517745207
c0,20
a#ifndef __MWERKS__                        // •• CW TCL
c21,21
a#endif                                    // •• CW TCL
c22,368
e
fBRPostEx.cpp
x80288765,191908443
c0,24
a#ifndef __MWERKS__                    // •• CW TCL
c25,25
a#endif                                // •• CW TCL
c26,70
e
fBRPriMem.cpp
i
fBRPriStr.cpp
i
fBRTryBlo.cpp
x276351068,499546392
c0,20
a#ifndef __MWERKS__                    // •• CW TCL
c21,21
a#endif                                // •• CW TCL
c22,27
a#ifndef __MWERKS__                    // •• CW TCL
c28,28
a#endif                                // •• CW TCL
c29,92
e
o
o
rControl Classes
fCArrowPopupPane.cp
x384469485,386499559
c0,110
a    border = new CPaneBorder;
c112,151
e
fCArrowPopupPane.h
i
fCButton.cp
x484881015,419802221
c0,293
a        border = new CPaneBorder;
c295,361
e
fCButton.h
i
fCCheckBox.cp
i
fCCheckBox.h
i
fCGroupButton.cpp
x378000304,343277996
c0,58
a        if (member(anEnclosure, CGroupButtonEnclosure)) {            // •• CW TCL: fix casting bug
a            CWindow* w = (CWindow*) anEnclosure;                    // •• CW TCL
a            itsGroupEnclosure = (CGroupButtonEnclosure*) w;            // •• CW TCL
a        }                                                            // •• CW TCL
a
a//        CWindow        *w = (CWindow*) anEnclosure;
a//        itsGroupEnclosure = TCL_DYNAMIC_CAST(CGroupButtonEnclosure, w);
c61,161
e
fCGroupButton.h
x432023668,318155356
c0,1
a#include "TCL.h"                    // •• CW TCL
c2,10
a    TCL_DECLARE_CLASS;
c12,42
e
fCGroupButtonEnclosure.cpp
i
fCGroupButtonEnclosure.h
x180100340,176765250
c0,14
a#ifndef TCL_NO_TEMPLATES                            // •• CW TCL
c15,15
a#else                                                // •• CW TCL
aCW_Decl_PtrArray(CGroupButton)                        // •• CW TCL
atypedef CPtrArray_CGroupButton CGroupButtonList;    // •• CW TCL
a#endif                                                // •• CW TCL
c16,19
a    TCL_DECLARE_CLASS;
c21,31
e
fCIconPane.cp
i
fCIconPane.h
i
fCPopupMenu.cp
i
fCPopupMenu.h
i
fCPopupPane.cp
x340563975,12250139
c0,37
aTCL_DEFINE_CLASS_M1(CPopupPane, CPane);            // •• CW TCL: sometimes need dynamic refs
c39,369
e
fCPopupPane.h
i
fCRadioControl.cp
i
fCRadioControl.h
i
fCRadioGroupPane.cp
i
fCRadioGroupPane.h
i
fCStdPopupPane.cp
i
fCStdPopupPane.h
i
o
rCore Classes
rCore Headers
fCApplication.h
x136048323,115357488
c0,42
a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
c43,43
a#else                                        // •• CW TCL
a#include "CPtrArray.h"                        // •• CW TCL
aCW_Decl_PtrArray(CChore)                    // •• CW TCL
atypedef CPtrArray_CChore CChoreList;        // •• CW TCL
a#endif                                        // •• CW TCL
c44,44
c48,48
c45,239
a#ifndef TCL_NO_PATCHES                        // •• CW TCL
c244,244
c241,246
a#endif // #ifndef TCL_NO_PATCHES            // •• CW TCL
e
fCArray.h
i
fCArrayIterator.h
i
fCBartender.h
i
fCBureaucrat.h
i
fCChore.h
i
fCClipboard.h
i
fCCollaborator.h
x32480683,293416270
c0,13
a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
a#define CCollaboratorList CPtrArray_CCollaborator
a#endif                                    // •• CW TCL
c15,15
c14,15
a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
aclass CCollaborator;                    // •• CW TCL
aCW_Decl_StreamCalls(CCollaborator)        // •• CW TCL
a#endif                                    // •• CW TCL
c18,18
c16,26
c31,31
c27,69
e
fCCollection.h
x64858342,399984727
c0,25
a#ifdef __MWERKS__                        // •• CW TCL
a    CCollection(CCollection& source);
a#endif                                    // •• CW TCL
c28,28
c26,26
c28,28
c27,34
e
fCControl.h
i
fCDecorator.h
i
fCDesktop.h
x382519935,117831317
c0,16
a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
c17,17
a#else                                        // •• CW TCL
aCW_Decl_List(CWindow)                        // •• CW TCL
atypedef CList_CWindow CWindowList;            // •• CW TCL
a#endif                                        // •• CW TCL
c18,84
e
fCDirector.h
i
fCDirectorOwner.h
x230669666,423452236
c0,21
a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
c22,22
a#else                                        // •• CW TCL
aCW_Decl_PtrArray(CDirector)                    // •• CW TCL
atypedef CPtrArray_CDirector CDirectorList;    // •• CW TCL
a#endif                                        // •• CW TCL
c23,49
e
fCDocument.h
x114239706,176709528
c0,19
a#define TCL_NO_TEMPLATES
c22,22
c20,141
e
fCEnvironment.h
i
fCEnvirons.h
x199372584,439316469
c0,15
a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
aclass CEnvirons;                        // •• CW TCL
aCW_Decl_StreamCalls(CEnvirons)            // •• CW TCL
a#endif                                    // •• CW TCL
c18,18
c16,61
e
fCError.h
i
fCFile.h
i
fCMBarChore.h
i
fCMouseTask.h
i
fCommands.h
i
fConstants.h
i
fCPane.h
i
fCPaneBorder.h
x521993175,370672830
c0,35
a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
aclass CPaneBorder;                        // •• CW TCL
aCW_Decl_StreamCalls(CPaneBorder)        // •• CW TCL
a#endif                                    // •• CW TCL
c39,39
c36,115
e
fCPanorama.h
i
fCPicture.h
i
fCPrinter.h
i
fCRunArray.h
i
fCScrollBar.h
i
fCScrollPane.h
i
fCSizeBox.h
i
fCSwitchboard.h
i
fCTask.h
i
fCView.h
x99354561,283448835
c0,46
a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
c47,47
a#else                                    // •• CW TCL
aCW_Decl_List(CView)                        // •• CW TCL
atypedef CList_CView CViewList;            // •• CW TCL
a#endif                                    // •• CW TCL
c48,170
e
fCVoidPtrArray.h
i
fCVoidPtrArrayIterator.h
i
fCWindow.h
i
fGlobal.h
i
z802,CException.h
/******************************************************************************
 CException.h

        Exception class for exceptions thrown by the TCL

    Copyright © 1994 Symantec Corporation. All rights reserved.

 ******************************************************************************/

#pragma once

#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
#ifndef BREXCEPT_H
#include "BRExcept.h"
#endif
#include "TCLClassInfo.h"

class CException TCL_EXCEPTION_CLASS
{
public:

    TCL_DECLARE_CLASS

    CException(short err, long msg) { SetErr(err); SetMsg(msg); }

    short GetErr() { return err; }
    long GetMsg() { return msg; }

    void SetErr(short err) { this->err = err; }
    void SetMsg(long msg) { this->msg = msg; }

private:
    short    err;
    long    msg;
};

#endif // #ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL
z6611,Exceptions_PP.h
// ______________________________________________________________________
//
//  Exceptions_PP.h
//  TCL 2.0 CodeWarrior port
//
//

#pragma once


// ______________________________________________________________________
//
//    This file stands in the place of the TCL’s Exceptions.h file.
//    It provides a wrapper for PowerPlant’s exception handling routines
//    within the TCL. Most of the TCL macros are implemented; a few
//    that cannot be duplicated are defined to cause compile-time errors.
//
//    Limitations:
//
//      *    You may not use the typed exception handling which was added
//        in TCL 2.0. The macros catch_, catch_reference_, and
//        catch_no_instance_ are not permitted. You must use
//        catch_all_ instead.
//
//      *    You may not reference the global variables gAskFailure,
//        gBreakFailure, _gTCLBreakCatch, _gTCLBreakFailure, or
//        _gTCLBreakAssert. These variables do not exist in this
//        implementation. The macros which access these variables are
//        implemented.
//
//      *    The PowerPlant header <UException.h> must be installed
//        in the CodeWarrior compiler folder. The file <UException.cp>
//        must be added to the project.
//
//      *    If the __TCL_DEBUG__ macro is defined, the PowerPlant header
//        <UDebugging.h> must also be installed in the CodeWarrior
//        compiler folder. The file <UDebugging.cp> must be added
//        to the project.
//
//      *    Your source may not use the throw_(exception) macro. Error
//        reporting must take place through the standard Fail___ routines.
//        The throw_same_() macro is permitted.
//
//
//    Usage notes:
//
//      *    If the __TCL_DEBUG__ macro is defined, the PowerPlant macro
//        Debug_Throw is also defined. This enables the source-level
//        exception debugging mechanism built into the PowerPlant
//        library.
//
//      *    There are two options for handling assertions: You may use
//        the TCL-style assertion-failed dialog, or you may use the
//        PowerPlant-style debugger break. PowerPlant handling is the
//        default. To enable the TCL handling, comment out the macro
//        TCL_SOURCE_ASSERT below.
//

#define TCL_SOURCE_ASSERT


// ______________________________________________________________________
//
// bring in the PowerPlant exception library (and a few other definitions)
//

#ifdef __TCL_DEBUG__
#define Debug_Throw
#define Debug_Signal
#endif

#include <UException.h>

#include <Types.h>
#include <AppleEvents.h>


// ______________________________________________________________________
//
// TCL global error variables
//

extern short    gLastError;                // last error code that caused failure
extern long        gLastMessage;            // last message code associated with failure

#define kSilentErr    1                // pass to Failure to fail without any user alert


// ______________________________________________________________________
//
// TCL failure routines
//

pascal void Failure(short error, long message);
pascal void Fail(short error);
pascal void FailEvent();
pascal void FailEventMsg(long message);

pascal void FailMemError();
pascal void FailResError();
pascal void FailNIL(void *p);
pascal void FailOSErr( short error);
pascal void FailNILRes(void* p);

pascal void    Success();

pascal long SpecifyMsg(short strListID, short strIndex);
pascal void SetFailInfo(short newError, long newMessage);


// ______________________________________________________________________
//
// exception debugging macros
//

#ifdef Debug_Signal

#define _TCL_DEBUG_CATCH \
    SignalPStr_("\pEntering catch block")
#define TCL_BREAK_ON_CATCH(bool) \
    (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
#define TCL_ASK_ON_FAIL(bool) \
    (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))
#define TCL_BREAK_ON_ASSERT(bool) \
    (gDebugSignal = (bool ? debugAction_SourceDebugger : debugAction_Nothing))

#else

#define _TCL_DEBUG_CATCH ((void) 0)
#define TCL_BREAK_ON_CATCH(bool) ((void) 0)
#define TCL_ASK_ON_FAIL(bool) ((void) 0)
#define TCL_BREAK_ON_ASSERT(bool) ((void) 0)

#endif


#ifdef Debug_Throw

#define TCL_BREAK_ON_FAILURE(bool) \
    (gDebugThrow = (bool ? debugAction_SourceDebugger : debugAction_Nothing))

#else

#define TCL_BREAK_ON_FAILURE(bool) ((void) 0)

#endif


// ______________________________________________________________________
//
// exception handling macros
//

#define TRY Try_

#define CATCH \
    Catch_(_PP_Err) \
    char __TCL_propagate = 1;

#define ENDTRY \
    if (__TCL_propagate) \
        Throw_('same'); \
    EndCatch_

#define NO_PROPAGATE \
    __TCL_propagate = 0


#define try_ Try_

#define catch_(class, error) ***Error
#define catch_reference_(class, error) ***Error
#define catch_no_instance_(class, error) ***Error

#define catch_all_() \
    Catch_(_PP_Err)

#define end_try_ EndCatch_

#define throw_(exception) ***Error

#define throw_same_() \
    Throw_('same')                    // why not?

#define TCL_EXCEPTION_CLASS ***Error

#define TCL_NEW(class, init) new class##init

#define TCL_END_CONSTRUCTOR

#define TCL_START_DESTRUCTOR

#define TCL_AUTO_DESTRUCT_OBJECT


// ______________________________________________________________________
//
// Failure() message strings defined by the TCL
//

enum {
    excMsgNullObject = 1,
    excMsgLookupFailed,
    excNewByNameFailed,
    excPrintJobTooBig,
    excExceedTELimit,

    excAEStrTooBig,
    excAEUserCanceled,
    excUnknownException,
    excBadFileType,

    excLastTCLException = excBadFileType
};


// ______________________________________________________________________
//
// Assertion macros
//

#ifdef __TCL_DEBUG__

short _TCL_assertion_failed(char *conditionStr,  char *fileName, int lineNum);
void _TCL_CheckHandle(const Handle);
void _TCL_CheckResource(const Handle);
void _TCL_CheckPtr(const Ptr);
void _TCL_CheckObjectPtr(const void *);
void _TCL_CheckDesc(const AEDesc*);

#ifdef TCL_SOURCE_ASSERT
    #define TCL_ASSERT(condition) Assert_(condition)
#else
    #define TCL_ASSERT(condition) \
        ((void) ((condition)) || (_TCL_assertion_failed(#condition, __FILE__, __LINE__),1))
#endif // #ifdef TCL_SOURCE_ASSERT

#define TCL_ASSERT_HANDLE(H)         _TCL_CheckHandle((Handle) H)
#define TCL_ASSERT_RESOURCE(H)        _TCL_CheckResource((Handle) H)
#define TCL_ASSERT_PTR(P)            _TCL_CheckPtr((Ptr) P)
#define TCL_ASSERT_OBJECT_PTR(P)    _TCL_CheckObjectPtr(P)
#define TCL_ASSERT_DESC(P)            _TCL_CheckDesc(P)

#else // #ifdef __TCL_DEBUG__

#define TCL_ASSERT(condition)        ((void)0)
#define TCL_ASSERT_HANDLE(H)        ((void)0)
#define TCL_ASSERT_RESOURCE(H)        ((void)0)
#define TCL_ASSERT_PTR(P)            ((void)0)
#define TCL_ASSERT_OBJECT_PTR(P)    ((void)0)
#define TCL_ASSERT_DESC(P)            ((void)0)

#endif // #ifdef __TCL_DEBUG__


#undef ASSERT

#define ASSERT(condition) TCL_ASSERT(condition)
o
rCore Sources
fCApplication.asm
x339079643,107672196
c0,18
a#ifndef __MWERKS__                                // •• CW TCL
c22,22
c19,30
a#endif // #ifndef __MWERKS__                    // •• CW TCL
c33,33
c31,36
aextern "C" {
c42,42
c39,45
a#ifdef __MWERKS__                            // •• CW TCL
aasm
a#endif                                        // •• CW TCL
c47,48
a#ifndef __MWERKS__                            // •• CW TCL
c49,50
a#endif                                        // •• CW TCL
a             clr.l        -(sp)                // reserve some space
a            movem.l        a0-a5/d0-d7, -(sp)    // save the regs
a             move.w      64(sp), d7          // get seg#
c54,57
a             move.b      #kAllocCanFail, -(sp) // this allocation
a             jsr            SetAllocation        // can fail
a             move.b      d0, d6                // save old canFail flag
c61,62
a             clr.l        -(sp)                // do a GetResource on
a             move.l      #'CODE', -(sp)      // the code segment
c65,65
a             _GetResource
a             movea.l       (sp)+, a3            // save the handle
c62,62
a             move.b      d6, -(sp)            // restore old allocation
c70,73
a             jsr            FailNIL                // returns if OK
c68,68
a             move.l        origLoadSeg, 56(sp) // store original LoadSeg on stack
a             movem.l        (sp)+, a0-a5/d0-d7  // restore regs
a             rts                                // return to original LoadSeg
a#ifndef __MWERKS__                            // •• CW TCL
c79,79
c21,21
c80,82
e
fCApplication.cp
x5569548,405443968
c0,56
a//#include "CPtrArrayIterator.h"            // •• CW TCL: not actually used here
c58,59
a#include "TCLpstring.h"                        // •• CW TCL: is actually used here
c60,92
a#ifndef __MWERKS__                        // •• CW TCL: not needed
c93,93
a#endif // ## ifndef __MWERKS__            // •• CW TCL
c94,317
a    itsIdleChores = new CChoreList;
a    itsUrgentChores = new CChoreList;
c317,317
c321,458
a#ifndef TCL_NO_PATCHES                    // •• CW TCL: okay, mostly no patches
c459,461
a#endif                                    // •• CW TCL
c462,478
a#ifndef TCL_NO_PATCHES                        // •• CW TCL
c479,480
a#endif                                        // •• CW TCL
c481,558
a    gDesktop = new CDesktop;
c560,570
a    gClipboard = new CClipboard(TRUE);
c572,1202
a#ifndef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
c1203,1203
a#else                                    // •• CW TCL
a        catch_all_()                    // •• CW TCL
a#endif                                    // •• CW TCL
c1204,1204
a#ifndef TCL_USE_PP_EXCEPTIONS                    // •• CW TCL
c1205,1208
a#else                                            // •• CW TCL
a            short err = gLastError;                // •• CW TCL
a            if (err != kSilentErr)                // •• CW TCL
a                ErrorAlert(err, gLastMessage);    // •• CW TCL
a            HiliteMenu(0);                        // •• CW TCL
a#endif                                            // •• CW TCL
c1209,1229
a#ifndef TCL_USE_PP_EXCEPTIONS            // •• CW TCL
c1230,1230
a#else                                    // •• CW TCL
a        catch_all_()                    // •• CW TCL
a#endif                                    // •• CW TCL
c1231,1240
a#ifndef TCL_USE_PP_EXCEPTIONS                    // •• CW TCL
c1241,1244
a#else                                            // •• CW TCL
a            short err = gLastError;                // •• CW TCL
a            if (err != kSilentErr)                // •• CW TCL
a                ErrorAlert(err, gLastMessage);    // •• CW TCL
a            HiliteMenu(0);                        // •• CW TCL
a#endif                                            // •• CW TCL
c1245,1919
a    return new CAppleEvent(theEvent, theReply, theRefCon);
c1921,2308
a                    ((CProperty*) new CProperty(this, prop, cBoolean))->
c2310,2313
a                    (new CProperty(this, prop, cIntlText))->MakeToken(theToken);
c2311,2312
c2317,2317
a                    (new CProperty(this, prop, cLongInteger))->MakeToken(theToken);
c2311,2311
c2320,2397
a// TEMPORARY: just include it here!
c2396,2397
a#if defined(__MWERKS__) && !defined(TCL_POWER_PC) \
a            && !defined(TCL_NO_PATCHES)                    // •• CW TCL
a#include "CApplication.asm"                                // •• CW TCL
a#endif                                                    // •• CW TCL
e
fCArray.cp
i
fCArrayIterator.cp
i
fCBartender.cp
x517556037,96791749
c0,332
a        theChore = new CMBarChore;
c334,1184
e
fCBureaucrat.cp
i
fCChore.cp
i
fCClipboard.cp
x253170836,390340112
c0,41
a#include "CAppleEvent.h"                // •• CW TCL
a#include "CWatchDesc.h"                    // •• CW TCL
a#include "TCLUtilities.h"                // •• CW TCL
c42,559
a            CPicture *pict = new CPicture;
c561,570
a            CEditText *text = new CEditText;
c572,885
e
fCCollaborator.cp
x16538233,361490746
c0,29
a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
aCW_Decl_PtrArray(CCollaborator)            // •• CW TCL
aCW_Inst_PtrArray(CCollaborator)            // •• CW TCL
a#else                                    // •• CW TCL
c30,32
a#endif                                    // •• CW TCL
c33,326
c2,2
e
fCCollection.cp
x252630584,436024412
c0,32
a#ifdef __MWERKS__                        // •• CW TCL: apparently no default copy constructor
aCCollection::CCollection(CCollection& source) : CCollaborator(source)
c41,41
a    numItems = source.numItems;
c42,42
a#endif                                    // •• CW TCL
c36,36
c36,36
c45,45
c35,105
e
fCControl.cp
i
fCDecorator.cp
i
fCDesktop.cp
x284928163,456018019
c0,95
a    itsFloats = new CWindowList;                // Initialize our list of floating
a                                                //   windows
c98,143
a    itsWindows = new CWindowList;        // Initialize our window list
c145,1109
a    return (CWindow*) itsWindows->NthItem(index);        // •• CW TCL
c1111,1145
a    return (CWindow*) itsWindows->FindItem1(fun, param);    // •• CW TCL
c1147,1184
e
fCDirector.cp
i
fCDirectorOwner.cp
i
fCDocument.cp
x259718951,83711138
c0,37
a#include "TCLpstring.h"
c38,59
c61,61
c60,1145
a                    (new CProperty(this, pIsModified, cBoolean))->MakeToken(theToken);
c1148,1270
e
fCEnvironment.cp
i
fCEnvirons.cpp
x132466784,410244561
c0,38
a#include "Global.h"                        // •• CW TCL
c40,40
c39,220
e
fCError.cp
i
fCFile.cp
i
fCMBarChore.cp
i
fCMouseTask.cp
i
fCPane.cp
x230873354,215921013
c0,20
a#include "Constants.h"                    // •• CW TCL
c21,29
c31,2033
e
fCPaneBorder.cp
i
fCPanorama.cp
i
fCPicture.cp
i
fCPrinter.cp
i
fCRunArray.cp
i
fCScrollBar.cp
i
fCScrollPane.cp
x128728212,114617106
c0,174
a        itsHorizSBar = new CScrollBar;
c176,184
a        itsVertSBar = new CScrollBar;
c186,194
a        itsSizeBox = new CSizeBox;
c196,702
e
fCSizeBox.cp
i
fCSwitchboard.cp
i
fCTask.cp
i
fCView.cp
i
fCVoidPtrArray.cp
i
fCVoidPtrArrayIterator.cp
i
fCWindow.cp
i
fGlobalVars.cp
i
z6489,Exceptions.asm
/******************************************************************************
 Exceptions.asm

        Exception handling library for the THINK Class Library.

    Copyright © 1992, 1993, 1994 Symantec Corporation. All rights reserved.

    Based on material copyrighted by Apple Computer, Inc., 1985-1988.

    This file is only used with TCL exceptions, i.e., when USE_BEL
    is undefined.
 ******************************************************************************/

#include "Exceptions.h"

#ifndef TCL_USE_PP_EXCEPTIONS            // •• CW TCL: don’t use this file
#ifdef USE_BEL
\\\ERROR: Exceptions.asm should be removed from project when USE_BEL is defined
#endif

            // NO_TCL may be defined to use Exceptions
            // in a very limited fashion without the TCL

#if !defined NO_TCL && !defined PASCAL_EXCEPTIONS

#include <Packages.h>

#endif

#undef DBG
#ifdef  __TCL_DEBUG__                    // check if TCL debugging code is
#define DBG                                // enabled, if it is, then enable
#endif                                    // the private debugging symbol


extern FailInfo        *gTopHandler;

#ifndef PASCAL_EXCEPTIONS

extern short    gLastError;
extern long        gLastMessage;
extern char        gDefaultPropagation;

#ifdef DBG
extern char        gAskFailure;
extern char        gBreakFailure;
#endif

#else

extern char        *gDbgPascalExceptions;
#endif

#define        JMP_BUF_A6            36        // offset of reg a6 in jmp_buf

enum                                     // for handlerType field of FailInfo
{
    kCatchException,
    kTry,
    kCatchFailure
};

void NoHandler();
pascal void ThrowHandler(FailInfo*);

/******************************************************************************
 ThrowHandler

     Invokes the exception handler at the top of the stack.
******************************************************************************/
static void AsmThrowHandler()
{

    asm        {

extern ThrowHandler:

        addq.l    #4, sp                            ; pop return address
        move.l    (sp)+, d0                        ; get pointer to FailInfo
        bne        @1                                ; make sure it's not NIL
        jsr        NoHandler                        ; exit if NIL - doesn't return

    @1    move.l    d0, a0                            ; load FailInfo to a0
        clr.w    d0                                ; dispatch on FailInfo->handlerType
        move.b  FailInfo.handlerType(a0), d0
        add.w    d0,d0
        add.w    @2(d0.w),d0
        jmp        @2(d0.w)

    @2    dc.w    @catchexception
        dc.w    @try
        dc.w    @catchfailure

    catchexception:

        lea        FailInfo.regs(a0), a0           ; point to jmp_buf
        movem.l    (a0),d3-d7/a1-a4/a6-a7            ; restore registers. note that
                                                ; return address is already popped into a1
                                                ; and a7 points to return value for the
                                                ; original CatchSignal
        move.w    gLastError, (sp)                ; set error code
        jmp        (a1)

    try:

        lea      FailInfo.regs(a0), a0           ; point to jmp_buf
        movem.l    (a0),d3-d7/a1-a4/a6-a7            ; restore registers. note that
                                                ; return address is already popped into a1
                                                ; and a7 points to return value for the
                                                ; original setjmp
        move.w    gLastError, d0                    ; set error code
        ext.l    d0                                ; extend in case of 4 byte int
        jmp        (a1)


    catchfailure:

#ifdef PASCAL_EXCEPTIONS
        tst.b    gDbgPascalExceptions            ; are we debugging?
        beq.s   @nodebug                        ; use different technique if we are


        move.l    a0, a4                            ; save fi in a4
        lea        FailInfo.regs(a4), a3            ; get the target a6 we will be
        move.l  JMP_BUF_A6(a3), a3                ; unwinding to in a3

        cmpa.l    a3, a6                            ; are we at same level?
        beq.s    @4


@3        trap    #0xC                            ; this resynchs the Pascal debugger
        movea.l    (a6), a6                        ; pop off dynamic links
        cmpa.l    a3, a6                            ; until we hit target a6
        bne.s    @3

@4        move.l  a4, a0                            ; put fi back in a0
                                                ; no fall thru to nodebug case

    nodebug:
#endif

        movem.l    FailInfo.regs(a0),d3-d7/a1-a4/a6-a7
                                                ; restore registers. note that
                                                ; return address is already popped
                                                ; into a1


        tst.w    gLastError                        ; if gLastError != noErr then
                                                ; call handler, else retry
        beq.s    @retry

        move.w  gLastError, -(sp)                ; push error and message
        move.l  gLastMessage, -(sp)

        tst.l   FailInfo.A6Link(a0)                ; push static link if one
        beq.s    @nolink                            ; was provided
        move.l    FailInfo.A6Link(a0), -(sp)

    nolink:
        move.l    FailInfo.handlerProc(a0), a0
        jsr        (a0)                            ; call the handler

        move.w  gLastError, -(sp)                ; push error and message
        move.l  gLastMessage, -(sp)

        jsr        Failure                            ; propagate failure
                                                ; doesn't return

    retry:

        jmp        (a1)                            ; return following CatchFailures

    }
}


/******************************************************************************
 CatchFailures

******************************************************************************/
static void AsmCatchFailures()
{
    asm
    {
  extern CatchFailures:

        movea.l (sp)+, a1                                ; pop return address
        move.l    (sp)+, d0                                ; pop static link
        move.l    (sp)+, d1                                ; pop procptr
        movea.l (sp)+, a0                                ; pop failinfo

        movem.l    d3-d7/a1-a4/a6-a7, FailInfo.regs(a0)     ; save registers
        move.l    d0, FailInfo.A6Link(a0)                    ; save static link
        move.l    d1, FailInfo.handlerProc(a0)            ; save procptr

        move.b  #1, FailInfo.fPropagate(a0)                ; always propagates

                                                        ; set handler type
        move.b    #kCatchFailure, FailInfo.handlerType(a0)

        move.l    gTopHandler, FailInfo.next(a0)            ; link to next handler
        move.l    a0, gTopHandler                            ; stack top is new handler

        jmp        (a1)                                    ; return to caller
    }
}


/******************************************************************************
 CatchException

     Records the state of the calling routine in a FailInfo record and
     pushes this record onto the handler stack. Initially, zero is returned
     as the function result. If any call to Failure() occurs, the handler
     will be popped, and the caller will be resumed and the return value
     will be the error code passed to Failure().

******************************************************************************/
static pascal short AsmCatchException()
{
    asm
    {

  extern CatchException:

        movea.l (sp)+, a1                                ; pop return address
        movea.l (sp)+, a0                                ; pop handler
        movem.l    d3-d7/a1-a4/a6-a7, FailInfo.regs(a0)     ; save registers
        clr.l    FailInfo.A6Link(a0)                        ; no A6 link for CatchSignal
                                                        ; set fPropagate
        move.b  gDefaultPropagation, FailInfo.fPropagate(a0)

                                                        ; set handler type
        move.b    #kCatchException, FailInfo.handlerType(a0)

        move.l    gTopHandler, FailInfo.next(a0)            ; link to next handler
        move.l    a0, gTopHandler                            ; stack top is new handler

        clr.w    (sp)                                    ; return noErr to caller
        jmp        (a1)
    }
}


#endif // #ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL

o
o
rDialog Classes
fCDialog.cp
x535558154,526682450
c0,139
a        scrollPane = new CScrollPane;
c141,147
a    itsPanorama = new CPanorama;
c149,604
e
fCDialog.h
i
fCDialogDirector.cp
x286358392,165789854
c0,145
a    itsGopher = gopherInfo.firstGopher? (CBureaucrat*) (gopherInfo.firstGopher)
a                            : (CBureaucrat*) itsDialog;        // •• CW TCL: added typecasts
c147,274
a    itsGopher = gopherInfo.firstGopher? (CBureaucrat*) (gopherInfo.firstGopher)
a                            : (CBureaucrat*) itsDialog;        // •• CW TCL: added typecasts
c276,335
e
fCDialogDirector.h
x63186064,63186065
c0,24
c26,26
c25,46
e
fCDialogText.cp
x187463203,189493277
c0,188
a    border = new CPaneBorder;
c190,576
e
fCDialogText.h
i
fCDLOGDialog.cp
x412313134,185847690
c0,47
a#ifndef __MWERKS__                        // •• CW TCL
c48,48
a#endif                                    // •• CW TCL
c49,406
a    return foundView? (CView*) foundView : (CView*) itsPanorama;    // •• CW TCL: added typecasts
c408,441
a    btn = new CButton;
c443,460
a    CRadioControl *radio = new CRadioControl;
c462,487
a    CCheckBox *check = new CCheckBox;
c489,549
a        text = new CEditText;
c551,596
a    text = new CDialogText;
c598,623
a    icon = new CIconPane;
c625,641
a    CPicture *pict = new CPicture;
c635,635
c644,662
a    CPane *pane = new CPane;
c664,669
a    border = new CPaneBorder;
c671,883
e
fCDLOGDialog.h
i
fCDLOGDirector.cp
i
fCDLOGDirector.h
x365293667,365293676
c0,21
a
c22,33
e
fCIntegerText.cp
i
fCIntegerText.h
x12233350,400869438
c0,16
a#include "CPanorama.h"                    // •• CW TCL: preempt nested #include limit
c17,87
e
o
rFile Classes
fCDataFile.cp
i
fCDataFile.h
i
fCPictFile.cp
i
fCPictFile.h
i
fCPNTGFile.cp
x207414813,104974483
c0,124
a        theBitMap = new CBitMap;            // Allocate a new bit map to hold
c126,210
e
fCPNTGFile.h
i
fCResFile.cp
i
fCResFile.h
i
o
rFW/Tearoffs
fCCharGrid.cp
x100012838,510707926
c0,127
a        itsEnvironment = new CTextEnvirons;
c129,172
e
fCCharGrid.h
i
fCFWDesktop.cp
i
fCFWDesktop.h
i
fCGridSelector.cp
i
fCGridSelector.h
i
fCMenuDefProc.cp
i
fCMenuDefProc.h
i
fCPaneMDEF.cp
i
fCPaneMDEF.h
i
fCPatternGrid.cp
i
fCPatternGrid.h
i
fCSelector.cp
i
fCSelector.h
i
fCSelectorMDEF.cp
i
fCSelectorMDEF.h
i
fCTearChore.cp
i
fCTearChore.h
i
fCTearOffMenu.cp
x501730647,29717269
c0,96
a    theTearChore = new CTearChore;        // Create and install an urgent
c98,99
a                                                // •• CW TCL
c100,101
e
fCTearOffMenu.h
i
fGenericMDEF.cp
x200340788,263988920
c0,26
aMenuDefUPP GenericMDEF = NewMenuDefProc(sGenericMDEF);
a                                    // •• CW TCL: this is a menu definition, not a menu *hook*
c28,68
e
fGenericMDEF.h
x346265065,532107767
c0,28
a    MenuDefUPP        defProc;                // •• CW TCL: corrected type
c30,35
aextern MenuDefUPP GenericMDEF;                // •• CW TCL: corrected type (it's an MDEF not a hook!)
c35,35
e
rWindoid WDEF ƒ
fWindoidWDEF.c
i
fWindoidWDEF.h
i
o
o
rMore Classes
fCBitMap.cp
i
fCBitMap.h
x393829702,463503481
c0,18
a#ifdef TCL_NO_TEMPLATES                    // •• CW TCL
aclass CBitMap;                            // •• CW TCL
aCW_Decl_StreamCalls(CBitMap)            // •• CW TCL
a#endif                                    // •• CW TCL
c21,21
c19,70
e
fCBitMapPane.cp
x172427485,30431481
c0,14
a#include "CBitMapPane.h"                        // •• CW TCL: removed <>
a#include "Global.h"                                // •• CW TCL: removed <>
c17,115
a        itsBitMap = new CBitMap;
c117,219
e
fCBitMapPane.h
i
fCStack.cp
i
fCStack.h
i
fCTextEnvirons.cp
i
fCTextEnvirons.h
i
o
rObject I/O
rHeaders
fCBufferedStream.h
x180971000,336016879
c0,11
a#include "CStream.h"                    // •• CW TCL: removed <>
c13,68
e
fCCountingStream.h
x216268539,492441692
c0,11
a#include "CStream.h"                // •• CW TCL: removed <>
c13,40
e
fCFileStream.h
x317632818,518849294
c0,11
a#include "CBufferedStream.h"            // Interface for its base class
a#include "CDataFile.h"
c14,50
e
fCHandleStream.h
i
fCSaver.h
x422705738,340532022
c0,11
a#include "CFileStream.h"                // •• CW TCL: omitted header
c12,16
a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
c17,58
c2,2
a#else // #ifndef TCL_NO_TEMPLATES                // •• CW TCL
c2,2
a#define CW_Decl_Saver(T) \
aclass CSaver_ ## T : public CDocument { \
a  public: \
a    TCL_DECLARE_CLASS \
a    T                    *itsContents; \
a    CSaver_ ## T() { itsContents = NULL; } \
a    CSaver_ ## T(Boolean printable); \
a    ~CSaver_ ## T(); \
a    virtual void        NewFile(); \
a    virtual void        OpenFile(SFReply *macSFReply); \
a    virtual Boolean        DoSave(); \
a    virtual Boolean        DoSaveAs(SFReply *macSFReply); \
a    virtual void        DoRevert(); \
aprotected: \
a    virtual void        MakeNewWindow(void) = 0; \
a    virtual void        ReadDocument(); \
a    virtual void        WriteDocument(); \
a    virtual void        MakeNewContents(void) = 0; \
a    virtual void        ReadContents(CFileStream *aStream); \
a    virtual void        WriteContents(CFileStream *aStream); \
a    virtual void        ContentsToWindow(); \
a    virtual void        WindowToContents(); \
a    virtual void        ExistingFile(); \
a    virtual OSType        NewFileType(); \
a    virtual void        PositionWindow(); \
a    virtual void        MakeWindowName(Str255 name); \
c58,58
c2,2
a// copied from CSaver.tem
c2,2
a#define CW_Inst_Saver(T) \
aTCL_DEFINE_CLASS_M1(CSaver_ ## T, CDocument) \
aCSaver_ ## T::CSaver_ ## T(Boolean printable) : CDocument(printable) { \
a    itsContents = NULL; \
a    TCL_END_CONSTRUCTOR \
a} \
aCSaver_ ## T::~CSaver_ ## T() \
a{ \
a    TCL_START_DESTRUCTOR \
a    TCLForgetObject(itsContents); \
a} \
avoid CSaver_ ## T::NewFile() { \
a    Str255            title; \
a    MakeNewWindow(); \
a    MakeNewContents(); \
a    ContentsToWindow(); \
a    PositionWindow(); \
a    MakeWindowName(title); \
a    itsWindow->SetTitle(title); \
a    SetChanged(FALSE); \
a    itsWindow->Select(); \
a} \
avoid    CSaver_ ## T::OpenFile(SFReply *macSFReply) { \
a    CDataFile    *theFile = NULL; \
a    FSSpec        spec; \
a    try_ { \
a        theFile = new(CDataFile); \
a        theFile->IDataFile(); \
a        theFile->SFSpecify(macSFReply); \
a        theFile->GetFSSpec(&spec); \
a        FailOpen(&spec); \
a        theFile->Open(fsRdWrPerm); \
a        itsFile = theFile; \
a    } \
a    catch_all_() { \
a        TCLForgetObject(theFile); \
a    } \
a    end_try_ \
a    ReadDocument(); \
a} \
avoid    CSaver_ ## T::MakeWindowName(Str255 newName) { \
a    Str31        count; \
a    if (itsFile != NULL) \
a        itsFile->GetName(newName); \
a    else { \
a        itsWindow->GetTitle(newName); \
a        if (Length(newName) == 0) \
a            GetIndString(newName, STRcommon, strUNTITLED); \
a        NumToString(gDecorator->GetWCount(), count); \
a        ConcatPStrings(newName, (unsigned char *)"\p "); \
a        ConcatPStrings(newName, count); \
a    } \
a} \
avoid    CSaver_ ## T::PositionWindow() { \
a    gDecorator->PlaceNewWindow(itsWindow); \
a} \
avoid    CSaver_ ## T::ReadContents(CFileStream *aStream) { \
a    GetObject(*aStream, (T*) itsContents); \
a} \
avoid    CSaver_ ## T::ReadDocument() { \
a    CFileStream        *theStream = NULL; \
a    Str255            theName; \
a    try_ { \
a        theStream = NewInputFileStream((CDataFile*) itsFile); \
a        ReadContents(theStream); \
a           SetChanged(FALSE); \
a        delete theStream; \
a    } \
a    catch_all_() { \
a        delete theStream; \
a    } \
a    end_try_ \
a    if (itsWindow == NULL) \
a        MakeNewWindow(); \
a    ContentsToWindow(); \
a    PositionWindow(); \
a    MakeWindowName(theName); \
a    itsWindow->SetTitle(theName); \
a    itsWindow->Select(); \
a} \
avoid    CSaver_ ## T::WriteContents(CFileStream *aStream) { \
a    PutObject(*aStream, itsContents); \
a} \
avoid    CSaver_ ## T::WriteDocument() { \
a    CFileStream        *theStream = NULL; \
a    try_ { \
a        gApplication->SetCriticalOperation(TRUE); \
a        WindowToContents(); \
a        theStream = NewOutputFileStream((CDataFile*) itsFile); \
a        WriteContents(theStream); \
a        theStream->Close(); \
a        SetChanged(FALSE); \
a        delete theStream; \
a        gApplication->SetCriticalOperation(FALSE); \
a    } \
a    catch_all_() \
a    { \
a        delete theStream; \
a        gApplication->SetCriticalOperation(FALSE); \
a    } \
a    end_try_ \
a} \
aBoolean CSaver_ ## T::DoSave() { \
a    if (itsFile == NULL) \
a        return DoSaveFileAs(); \
a    else { \
a        WriteDocument(); \
a        return TRUE; \
a    } \
a} \
aOSType    CSaver_ ## T::NewFileType() { \
a    return gApplication->sfFileTypes[0]; \
a} \
aBoolean CSaver_ ## T::DoSaveAs(SFReply *macSFReply) { \
a    OSErr        theError; \
a    CDataFile    *theFile = NULL; \
a    FSSpec        spec; \
a    try_ { \
a        if (itsFile != NULL) \
a            TCLForgetObject(itsFile); \
a        theFile = new(CDataFile); \
a        theFile->IDataFile(); \
a        theFile->SFSpecify(macSFReply); \
a        theFile->GetFSSpec(&spec); \
a        FailOpen(&spec); \
a        itsFile = theFile; \
a        if (theFile->ExistsOnDisk()) \
a            ExistingFile(); \
a        itsFile->CreateNew(gSignature, NewFileType()); \
a        theFile->Open(fsRdWrPerm); \
a        itsWindow->SetTitle(macSFReply->fName); \
a    } \
a    catch_all_() { \
a        TCLForgetObject(theFile); \
a    } \
a    end_try_ \
a    itsFile = theFile; \
a    return DoSave() ; \
a} \
avoid CSaver_ ## T::DoRevert() { \
a    TCLForgetObject(itsWindow); \
a    delete itsContents; \
a    itsGopher = this; \
a    if (itsFile != NULL) \
a        ReadDocument(); \
a    else \
a        NewFile(); \
a} \
avoid CSaver_ ## T::ContentsToWindow() {} \
avoid CSaver_ ## T::WindowToContents() {} \
avoid CSaver_ ## T::ExistingFile() { \
a    itsFile->ThrowOut(); \
a}
c2,2
a#endif // #ifndef TCL_NO_TEMPLATES                // •• CW TCL
e
fCSaver.tem
i
fCStream.h
x456839493,31540791
c0,71
c73,175
c182,182
a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
c176,182
a#else                                        // •• CW TCL
c184,184
a#define CW_Decl_StreamCalls(T) \
a    CStream& GetObject(CStream&, T*&); \
a    CStream& PutObject(CStream&, T*); \
a    void PutObjectReference (CStream&, T*); \
a    void PutObject1(T* obj, long stream);
c184,184
c186,186
a// template instantiations copied from <CStream.tem>
c186,186
a#ifndef MAXCLASSNAMELEN
a#define MAXCLASSNAMELEN 255
c14,14
a#define CW_Inst_StreamCalls(T) \
aCStream& PutObject (CStream& stream, T* obj) { \
a    if (!stream.PutReference(obj)) { \
a        stream.AddReference(obj); \
a        stream.PutClassName(TCL_CLASSNAME_FROM_POINTER(obj)); \
a        obj->PutTo(stream); \
a    } \
a    return stream; \
a} \
a    \
aCStream& GetObject (CStream& stream, T*& obj) { \
a    char name[MAXCLASSNAMELEN+1]; \
a        \
a    stream.GetClassName(name, MAXCLASSNAMELEN); \
a        \
a    if (strlen(name) == 0) \
a        obj = (T*) stream.GetReference(); \
a    else { \
a        obj = (T*) new_by_name(name); \
a        if (obj == NULL) \
a        { \
a            Failure(paramErr, excNewByNameFailed); \
a        } \
a        try_ { \
a            stream.AddReference(obj); \
a            obj->GetFrom(stream); \
a        } \
a        catch_all_() { \
a            delete obj; \
a            obj = NULL; \
a        } \
a        end_try_ \
a    } \
a    return stream; \
a} \
a    \
avoid PutObjectReference (CStream& stream, T* obj) { \
a    if (!stream.PutReference(obj)) \
a        stream.PutPtr(NULL); \
a} \
avoid PutObject1(T* obj, long stream) { \
a    PutObject(* (CStream*) stream, obj); \
a} \
c192,192
a#endif  // #ifdef TCL_NO_TEMPLATES            // •• CW TCL
c192,192
c183,196
e
fCString.h
i
fReference.h
i
fStreamResources.h
i
o
rSource
fCBufferedStream.cp
x208576433,476573043
c0,18
a#include "CBufferedStream.h"                // •• CW TCL: removed <>
c20,20
a#include "CError.h"                            // •• CW TCL: removed <>
a#include "TCLUtilities.h"                    // •• CW TCL: removed <>
a#include "Global.h"                            // •• CW TCL: removed <>
a#include "StreamResources.h"                // •• CW TCL: removed <>
a#include "Exceptions.h"                        // •• CW TCL: removed <>
c26,451
e
fCCountingStream.cp
i
fCFileStream.cp
x229641960,485714128
c0,30
a#include "CFileStream.h"                    // •• CW TCL: removed <>
c32,32
a#include "CError.h"                            // •• CW TCL: removed <>
a#include "TCLUtilities.h"                    // •• CW TCL: removed <>
a#include "Global.h"                            // •• CW TCL: removed <>
a#include "StreamResources.h"                // •• CW TCL: removed <>
a#include "Exceptions.h"                        // •• CW TCL: removed <>
c38,311
e
fCHandleStream.cp
x229479417,85026247
c0,18
a#include "CHandleStream.h"                // •• CW TCL: removed <>
a#include "string.h"                        // •• CW TCL: removed <>
a#include "CError.h"                        // •• CW TCL: removed <>
a#include "TCLUtilities.h"                // •• CW TCL: removed <>
a#include "Global.h"                        // •• CW TCL: removed <>
a#include "StreamResources.h"            // •• CW TCL: removed <>
a#include "Exceptions.h"                    // •• CW TCL: removed <>
c26,253
e
fCSaver.cp
i
fCStream.cp
x450946321,5876961
c0,26
a//#ifndef __pascal__                        // •• CW TCL: apparently not needed
a//#include <pascal.h>                        // •• CW TCL
a//#endif                                    // •• CW TCL
c30,30
a#ifdef TCL_NO_TEMPLATES
aCW_Decl_StreamCalls(CCollaborator)
c29,30
c32,909
e
fCString.cpp
i
o
o
dPrecompiled Headers
rTable Classes
fCArrayPane.cp
i
fCArrayPane.h
i
fCTable.cp
x500807718,30864284
c0,250
a    itsRows = new CRunArray;
c252,252
a    itsCols = new CRunArray;
c254,300
a    textEnvirons = new CTextEnvirons;
c302,388
a    tblTask = new CTableDragger;
c390,2017
a            border = new CPaneBorder;
c2019,2256
e
fCTable.h
i
fCTableDragger.cp
i
fCTableDragger.h
i
o
fTCL #includes.cpp
x401147845,457558807
c0,6
a#ifndef __cplusplus                    // •• CW TCL
c8,12
a#ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL: optional replacement of BEL
c13,13
a#endif                                // •• CW TCL
c14,69
a//#define BR_USE_NEW_HELPER                    // •• CW TCL: can’t seem to compile TCL_NEW macro (aargh!)
c71,83
a#ifndef __MWERKS__                            // •• CW TCL: already included
c84,84
a#endif                                        // •• CW TCL
c83,83
c86,107
a#ifndef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
c109,117
a#endif                                        // •• CW TCL
c118,120
c118,118
c121,125
a#ifndef TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
c126,139
a#ifndef TCL_NO_PRECOMPILED_WATCHDESC        // •• CW TCL
c140,140
a#endif                                        // •• CW TCL
c141,183
a#endif // TCL_NO_PRECOMPILED_CLASS            // •• CW TCL
c183,183
c185,185
c184,184
c6,6
e
rTCL Libraries
rTCL Library headers
fCException.h
x425801894,18056068
c0,10
a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
c15,15
c11,33
c2,2
a#endif // #ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL
e
fExceptions.h
x386874554,111864121
c0,10
a#ifdef TCL_USE_PP_EXCEPTIONS            // •• CW TCL: replace header if using PowerPlant exceptions
a#include "Exceptions_PP.h"
a#else                                    // •• CW TCL
c11,20
a#include "TCLClassInfo.h"                // •• CW TCL: removed < >
c22,70
a#ifndef TCL_NO_DEBUGGER_CALLS            // •• CW TCL
c71,73
a#else                                    // •• CW TCL
a#define _TCL_DEBUG_CATCH ((void)0);
a#endif                                    // •• CW TCL
c74,110
a#include "BRExcDef.h"                    // •• CW TCL: removed <>
c112,331
c330,330
a#endif // #ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
e
fLongCoordinates.h
i
fLongQD.h
i
fOSChecks.h
i
fqsort++.h
i
fTBUtilities.h
i
fTCL.h
i
fTCLClassInfo.h
x77157204,343800843
c0,14
a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL: new problems
c19,19
a                                                    // •• CW TCL: added prototypes
c15,15
a        static void* _TCLNew##name(); \
c16,20
a        static void* _TCLNew##name##_##T(); \
a        void* _TCLNew##name##_##T() { return TCL_NEW(name##<##T##>,()); } \
c22,25
a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
c26,26
c15,15
a        static void* _TCLNew##name(); \
c16,16
a        BR_CClassInfo BR_SHARED_DATA \
a            _##name##_gClassInfo(#name, sizeof(name), _##name##_gAncestors); \
a        BR_CClassInfo& name::BedStaticGetClassInfo() { return _##name##_gClassInfo; } \
a        BR_ClassReference* name::BedGetAncestors() { return _##name##_gAncestors; }
c34,34
a                                                    // for now, there’s no template support...
c34,34
a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE        // •• CW TCL
c34,34
c34,34
c33,33
c28,150
a#ifndef TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
c151,151
a#else // TCL_NO_MULTIPLE_STATIC_INHERITANCE                // •• CW TCL
a#define member(p, T) ((p)->BedVirtualGetClassInfo()->IsKindOf(&T::BedStaticGetClassInfo()))
a#endif // TCL_NO_MULTIPLE_STATIC_INHERITANCE            // •• CW TCL
c1,1
c153,153
e
fTCLCoordUtil.h
x435541449,339307691
c0,10
a#ifndef TCL_NO_TEMPLATES                        // •• CW TCL
c17,17
c11,45
c2,2
c2,2
a#else                                            // •• CW TCL
c2,2
a#define TCLScale(unscaled, scaleFactor) (unscaled * scaleFactor)
a#define TCLUnscale(scaled, scaleFactor) ((scaled + scaleFactor - 1) / scaleFactor)
a#define TCLCenter(low, high) ((low + high) >> 1)
a#define TCLDimension(low, high) (high - low)
a#define TCLDelta(newValue, oldValue) (newValue - oldValue)
c2,2
a#endif                                    // •• CW TCL
e
fTCLFolderUtilities.h
i
fTCLForceReferences.h
i
fTCLNulls.h
i
fTCLpstring.h
i
fTCLUtilities.h
i
o
rTCL Library sources
falloc.cp
x223550810,73746350
c0,18
a#ifndef __MWERKS__                    // •• CW TCL
c19,19
a#endif                                // •• CW TCL
c20,23
a#ifdef __MWERKS__                    // •• CW TCL
a#define TCL_NO_INSPECTOR            // •• CW TCL
a#endif                                // •• CW TCL
c27,27
c24,33
a#ifdef __MWERKS__                    // •• CW TCL: I like the MW implementation better
a#define OPERATOR_NEW _cw_operator_new
a#define OPERATOR_DELETE _cw_operator_delete
a#if TCL_CW_VERSION>2
a#ifdef TCL_POWER_PC
a#include <NewPPC.cp>
a#else
a#include <New68K.cp>
a#endif // TCL_POWER_PC
a#else // TCL_CW_VERSION>2
a#include <New.cp>
a#endif // TCL_CW_VERSION>2
a#endif // __MWERKS__
c38,38
c34,38
a#ifndef __MWERKS__                    // •• CW TCL
c39,48
a#else                                // •• CW TCL
a    p = OPERATOR_NEW(objSize);        // •• CW TCL
a#endif                                // •• CW TCL
c51,51
c50,66
a#ifndef __MWERKS__                    // •• CW TCL
c67,67
a#else                                // •• CW TCL
a    OPERATOR_DELETE(objStorage);    // •• CW TCL
a#endif                                // •• CW TCL
c57,57
e
fExceptions.asm
i
fExceptions.cp
x219474586,366144085
c0,15
c23,23
c17,25
a#include "Global.h"                        // •• CW TCL
c26,46
a#ifndef __MWERKS__                            // •• CW TCL: not available in CodeWarrior
c47,47
a#endif                                        // •• CW TCL
c48,52
a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
c53,53
a#endif                                        // •• CW TCL
c54,60
a#ifndef __MWERKS__                            // •• CW TCL
c61,62
a#endif                                        // •• CW TCL
c63,70
a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
c71,87
a#endif                                        // •• CW TCL
c88,88
c90,90
c89,94
a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL
c95,96
a#endif                                        // •• CW TCL
c99,99
c98,112
a#ifndef TCL_USE_PP_EXCEPTIONS                // •• CW TCL: this stuff is covered by PP
c120,120
c114,142
a    #ifndef TCL_NO_DEBUGGER_CALLS                    // •• CW TCL
c143,143
a    #endif                                            // •• CW TCL
c21,21
c148,148
c465,465
c161,161
c149,149
c152,152
c168,168
c151,161
a#endif // #ifndef TCL_USE_PP_EXCEPTIONS        // •• CW TCL
c162,179
a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
c197,197
a#endif                                        // •• CW TCL
c198,199
c183,196
a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
c214,214
a#endif                                        // •• CW TCL
c215,216
c200,213
a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
c237,237
a#endif                                        // •• CW TCL
c238,239
c217,236
a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
c257,257
a#endif                                        // •• CW TCL
c258,265
c246,256
a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
c180,180
a#endif                                        // •• CW TCL
c314,315
c240,245
c266,309
a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
c310,310
a#endif                                        // •• CW TCL
c315,315
c312,325
a#elif defined(TCL_USE_PP_EXCEPTIONS)        // •• CW TCL: PP exceptions
c327,327
c318,319
a    Throw_('err ');                            // ??? perhaps define a constant
c334,334
c326,347
a#ifndef TCL_NO_DEBUGGER_CALLS                        // •• CW TCL
c348,348
a#endif                                                // •• CW TCL
c466,466
c462,462
c351,433
a#ifndef TCL_NO_DEBUGGER_CALLS                        // •• CW TCL
c434,434
a#endif                                                // •• CW TCL
c445,445
c32,32
c445,445
c438,463
a#ifndef TCL_NO_DEBUGGER_CALLS                // •• CW TCL
c464,464
a#endif                                        // •• CW TCL
c146,146
c34,35
c468,596
a#ifdef __MWERKS__                        // •• CW TCL
a#define pascal
a#endif                                    // •• CW TCL
c597,675
e
fLongCoordinates.cp
i
fLongQD.cp
i
fOSChecks.cp
x283168480,120199846
c0,24
a           file TCLUtilities.asm .
c26,38
a// #if !defined(TCL_POWER_PC)                // •• CW TCL
c40,78
a// #endif                                // •• CW TCL
c80,137
a#ifdef __MWERKS__                            // •• CW TCL
astatic void AsmCacheFlush()                    // •• CW TCL
a    ONEWORDINLINE(_CacheFlushTrap);            // •• CW TCL
a#endif                                        // •• CW TCL
c137,140
a#ifndef TCL_POWER_PC                        // •• CW TCL
a        AsmCacheFlush();
a#else                                        // •• CW TCL
a        CallOSTrapUniversalProc(GetOSTrapAddress(_CacheFlushTrap), kRegisterBased);
a#endif                                        // •• CW TCL
a
c142,142
e
fqsort++.cp
i
fTBUtilities.cp
i
fTCLCoordUtilities.cpp
i
fTCLFolderUtilities.cp
x51707376,337810816
c0,10
a#include "TCL.h"                        // •• CW TCL
c11,471
e
fTCLpstring.cp
x154155038,455806996
c0,13
a// #include <BDC.h>                                // •• CW TCL: didn’t really need that anyway...
c15,102
e
fTCLUtilities.asm
i
fTCLUtilities.cp
i
o
o
rTemplates
fCList.cpp
i
fCList.h
x85404750,112513629
c0,15
a#ifndef TCL_NO_TEMPLATES                    // •• CW TCL
c16,29
c2,2
a#else // #ifndef TCL_NO_TEMPLATES                // •• CW TCL
c2,2
a#include "CStream.h"
c2,2
a#define CW_Decl_List(T) \
aCW_Decl_PtrArray(T) \
aCW_Decl_StreamCalls(T) \
aclass CList_ ## T : public CPtrArray_ ## T { \
a  public: \
a    TCL_DECLARE_CLASS \
a    CList_ ## T(short blockSize = 3) : CPtrArray_ ## T(blockSize) {} \
a    CList_ ## T(CList_ ## T & source) : CPtrArray_ ## T(source) { } \
a    virtual void *Copy() { return TCL_NEW(CList_ ## T, (*this)); } \
a    virtual void        PutItems(CStream& stream); \
a    virtual void        GetItems(CStream& stream); \
c29,29
c2,2
c2,2
a// copied from CList.tem
c2,2
a// assumes that TCL_OBJECT_IO is defined since preprocessor macros
a// can’t be included in #define statements
c2,2
a#define CW_Inst_List(T) \
aTCL_DEFINE_CLASS_M1(CList_ ## T, CPtrArray_ ## T) \
avoid CList_ ## T::PutItems(CStream& stream) { \
a    extern void PutObject1(T*, long); \
a    DoForEach1(PutObject1, (long) &stream); \
a} \
avoid CList_ ## T::GetItems(CStream& stream) { \
a    long    num; \
a    T*        obj; \
a    items = (LongHandle) hItems; \
a    num = numItems; \
a    numItems = 0; \
a    try_ { \
a        while (num--) { \
a            GetObject(stream, obj); \
a            Add(obj); \
a        } \
a    } \
a    catch_all_() { \
a        DisposeItems(); \
a    } \
a    end_try_ \
a}
c2,2
a#endif // #ifndef TCL_NO_TEMPLATES                // •• CW TCL
e
fCList.tem
i
fCListIterator.cp
i
fCListIterator.h
i
fCList_CView.cpp
i
fCPtrArray.cp
i
fCPtrArray.h
x526251118,12341190
c0,13
a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
c14,69
a    void        DoForEach1(EachFunc1 f, long l) { CVoidPtrArray::DoForEach1((vEachFunc1)f,l); } \
a    T*            FindItem(TestFunc f) { return (T*)CVoidPtrArray::FindItem((vTestFunc)f); } \
a    T*            FindItem1(TestFunc1 f, long param) { return (T*)CVoidPtrArray::FindItem1((vTestFunc1)f,param); } \
a    long        Offset(T* theObject) { return CVoidPtrArray::Offset(theObject); } \
a    void        Append(T* theObject) { CVoidPtrArray::Add(theObject); } \
a    void        Prepend(T* theObject) { CVoidPtrArray::InsertAt(theObject,1); } \
a    void        InsertAfter(T* theObject, T* afterObject) { CVoidPtrArray::InsertAfter(theObject, afterObject); } \
a    void        InsertAt(T* theObject, long index) { CVoidPtrArray::InsertAt(theObject, index); } \
a    void        BringFront(T* theObject) { CVoidPtrArray::BringFront(theObject); } \
a    void        SendBack(T* theObject) { CVoidPtrArray::SendBack(theObject); } \
a    void        MoveUp(T* theObject) { CVoidPtrArray::MoveUp(theObject); } \
a    void        MoveDown(T* theObject) { CVoidPtrArray::MoveDown(theObject); } \
a    void        MoveToIndex(T* theObject, long index) { CVoidPtrArray::MoveToIndex(theObject, index); } \
a    T*            FirstItem(void) { return (T*)CVoidPtrArray::FirstItem(); } \
a    T*            LastItem(void) { return (T*)CVoidPtrArray::LastItem(); } \
a    T*            NthItem(long n) { return (T*)CVoidPtrArray::NthItem(n); } \
a    long        FindIndex(T* theObject) { return CVoidPtrArray::FindIndex(theObject); } \
a    T*            FirstSuccess(TestFunc testFunc) { return (T*)CVoidPtrArray::FirstSuccess((vTestFunc)testFunc); } \
a    T*            FirstSuccess1(TestFunc1 testFunc, long param) { return (T*)CVoidPtrArray::FirstSuccess1((vTestFunc1)testFunc,param); } \
a    T*            LastSuccess(TestFunc testFunc) { return (T*)CVoidPtrArray::LastSuccess((vTestFunc)testFunc); } \
a    T*            LastSuccess1(TestFunc1 testFunc, long param) { return (T*)CVoidPtrArray::LastSuccess1((vTestFunc1)testFunc, param); } \
c70,70
c2,2
a#else // #ifndef TCL_NO_TEMPLATES                // •• CW TCL
c2,2
a#define CW_Decl_PtrArray(T) \
aclass CPtrArray_ ## T : public CVoidPtrArray { \
a  public: \
a    TCL_DECLARE_CLASS \
a    CPtrArray_ ## T(short blockSize = 3); \
a    CPtrArray_ ## T(CPtrArray_ ## T & source) : CVoidPtrArray(source) { } \
a    virtual ~CPtrArray_ ## T() {} \
a    virtual CPtrArray_ ## T *Copy() { return TCL_NEW(CPtrArray_ ## T, (*this)); } \
a    void IList() {} \
a    typedef void (*EachFunc)(T* obj); \
a    typedef void (*EachFunc1)(T* obj, long param); \
a    typedef Boolean (*TestFunc)(T* obj); \
a    typedef Boolean (*TestFunc1)(T* obj, long param); \
a    void        DisposeAll(); \
a    void        DisposeItems(); \
a    void        Add(T* theObject) { CVoidPtrArray::Add(theObject); } \
a    void        Remove(T* theObject) { CVoidPtrArray::Remove(theObject); } \
a    Boolean        Includes(T* theObject) { return CVoidPtrArray::Includes(theObject); } \
a    void        DoForEach(EachFunc f) { CVoidPtrArray::DoForEach((vEachFunc)f); } \
c70,70
c2,2
c2,2
a// copied from CPtrArray.tem
c2,2
a#define CW_Inst_PtrArray(T) \
aTCL_DEFINE_CLASS_M1(CPtrArray_ ## T, CVoidPtrArray) \
aCPtrArray_ ## T::CPtrArray_ ## T(short theBlockSize) : CVoidPtrArray(theBlockSize) { } \
avoid CPtrArray_ ## T::DisposeAll() { DisposeItems(); TCLForgetThis(); } \
avoid CPtrArray_ ## T::DisposeItems() { \
a    for (long i = 0; i < numItems; i++) { \
a        T* itemToPurge = (T*) (*items)[i]; \
a        (*items)[i] = 0; \
a        TCLForgetObject(itemToPurge); \
a        long index = i+1; \
a        BroadcastChange(arrayDeleteElement, &index); \
a    } \
a    numItems = 0; \
a    if (slots >  blockSize) \
a        Resize(blockSize); \
a}
c2,2
c2,2
a#endif // #ifndef TCL_NO_TEMPLATES                // •• CW TCL
e
fCPtrArray.tem
i
fCPtrArrayIterator.cpp
i
fCPtrArrayIterator.h
x457940209,289767268
c0,20
a#ifndef TCL_NO_TEMPLATES                // •• CW TCL
c21,32
a#else // #ifndef TCL_NO_TEMPLATES                // •• CW TCL
c2,2
a#define CW_Decl_PtrArrayIterator(T) \
aclass CPtrArray_ ## T; \
aclass CPtrArrayIterator_ ## T : public CArrayIterator { \
apublic: \
a    CPtrArrayIterator_ ## T(CPtrArray_ ## T *array, CursorPosition start) \
a        : CArrayIterator(array, start) {} \
a    Boolean    Next(T *&item) { return CArrayIterator::Next(&item); } \
a    Boolean    Prev(T *&item) { return CArrayIterator::Prev(&item); } \
c32,32
c2,2
a#endif // #ifndef TCL_NO_TEMPLATES                // •• CW TCL
e
fCPtrArray_CChore.cpp
i
fCPtrArray_CDirector.cpp
i
fCPtrArray_CView.cpp
i
fCStream.tem
i
fCStream_CBitMap.cpp
i
fCStream_CCollaborator.cpp
i
fCStream_CEnvironment.cpp
i
fCStream_CEnvirons.cpp
i
fCStream_CPaneBorder.cpp
i
fPutObject1.cpp
i
fPutObject1.tem
i
z329,CList.CView.cp
//
// TCL 2.0 CodeWarrior port
//
//    Instantiation of template class
//
//    This file creates a single template class instantiated within
//    the TCL class.
//
//    Eric Scouten, 29 April 1994
//


#include "CList.h"
#include "CView.h"


//CW_Decl_List(CView)                    // declared in <CView.h>
CW_Inst_PtrArray(CView)
CW_Inst_List(CView)
z344,CList.CWindow.cp
//
// TCL 2.0 CodeWarrior port
//
//    Instantiation of template class
//
//    This file creates a single template class instantiated within
//    the TCL class.
//
//    Eric Scouten, 29 April 1994
//


#include "CList.h"
#include "CWindow.h"

#ifdef TCL_NO_PRECOMPILED_CLASS
CW_Decl_List(CWindow)
#endif
CW_Inst_PtrArray(CWindow)
CW_Inst_List(CWindow)
z322,CPtrArray.CChore.cp
//
// TCL 2.0 CodeWarrior port
//
//    Instantiation of template class
//
//    This file creates a single template class instantiated within
//    the TCL class.
//
//    Eric Scouten, 29 April 1994
//


#include "CPtrArray.h"

#ifdef TCL_NO_PRECOMPILED_CLASS
class CChore;
CW_Decl_PtrArray(CChore)
#endif
CW_Inst_PtrArray(CChore)

z369,CPtrArray.CDirector.cp
//
// TCL 2.0 CodeWarrior port
//
//    Instantiation of template class
//
//    This file creates a single template class instantiated within
//    the TCL class.
//
//    Eric Scouten, 29 April 1994
//


#include "CPtrArray.h"

#ifdef TCL_NO_PRECOMPILED_CLASS
class CDirector;
CW_Decl_PtrArray(CDirector)                    // included by <CDirectorOwner.h>
#endif
CW_Inst_PtrArray(CDirector)

z340,CPtrArray.CGroupButton.cp
//
// TCL 2.0 CodeWarrior port
//
//    Instantiation of template class
//
//    This file creates a single template class instantiated within
//    the TCL class.
//
//    Eric Scouten, 29 April 1994
//


#include "CPtrArray.h"

#ifdef TCL_NO_PRECOMPILED_CLASS
class CGroupButton;
CW_Decl_PtrArray(CGroupButton)
#endif
CW_Inst_PtrArray(CGroupButton)

z489,CStream.extras.cp
//
// TCL 2.0 CodeWarrior port
//
//    Instantiation of stream helper functions
//
//    Eric Scouten, 29 April 1994
//


#include "CStream.h"

#include "CBitMap.h"
#include "CCollaborator.h"
#include "CEnvirons.h"
#include "CPaneBorder.h"
#include "CView.h"
#include "CWindow.h"

CW_Decl_StreamCalls(CWindow)

CW_Inst_StreamCalls(CBitMap)
CW_Inst_StreamCalls(CCollaborator)
CW_Inst_StreamCalls(CEnvirons)
CW_Inst_StreamCalls(CPaneBorder)
CW_Inst_StreamCalls(CView)
CW_Inst_StreamCalls(CWindow)o
rText Classes
fCAbstractText.cp
x485019744,419064040
c0,953
a        newTask = new CTextEditTask;
c955,983
a        newTask = new CTextStyleTask;
c985,1190
e
fCAbstractText.h
i
fCEditText.cp
i
fCEditText.h
x93899106,482535194
c0,10
a#include "CPanorama.h"                    // •• CW TCL: preempt nested #include limit
c11,118
e
fCStyleTEClipboard.cp
x391835603,444221993
c0,87
a                text = new CStyleText;
c89,125
e
fCStyleTEClipboard.h
i
fCStyleTEEditTask.cp
i
fCStyleTEEditTask.h
i
fCStyleTEStyleTask.cp
i
fCStyleTEStyleTask.h
i
fCStyleText.cp
x405102307,145351629
c0,321
a        editTask = new CStyleTEEditTask;
c323,351
a        newTask = new CStyleTEStyleTask;
c353,410
e
fCStyleText.h
i
fCTextEditTask.cp
i
fCTextEditTask.h
i
fCTextStyleTask.cp
i
fCTextStyleTask.h
i
o
rVisual Architect Library
fCColorTextEnvirons.cp
i
fCColorTextEnvirons.h
i
fCFloatDirector.cp
i
fCFloatDirector.h
i
fCGridMDEF.cp
x307268911,93565451
c0,14
a#include "Global.h"                        // •• CW TCL: removed <>
a#include "CSelector.h"                    // •• CW TCL: removed <>
a#include "CBartender.h"                    // •• CW TCL: removed <>
c18,141
e
fCGridMDEF.h
i
fCIconButton.cp
x83558629,377762758
c0,13
a#include "OSChecks.h"                    // •• CW TCL: removed <>
a#include "Commands.h"                    // •• CW TCL: removed <>
a#include "Global.h"                        // •• CW TCL: removed <>
a//#include <OSChecks.h>                    // •• CW TCL: can you believe they #included it TWICE!
a#include "CPaneBorder.h"                // •• CW TCL: removed <>
a#include "CControl.h"                    // •• CW TCL: removed <>
a#include "CWindow.h"                    // •• CW TCL: removed <>
c21,491
e
fCIconButton.h
i
fCLine.cp
x12769348,263607029
c0,15
a#include "OSChecks.h"                    // •• CW TCL: removed <>
a#include "Commands.h"                    // •• CW TCL: removed <>
a#include "Global.h"                        // •• CW TCL: removed <>
a//#include <OSChecks.h>                    // •• CW TCL: can you believe it... twice AGAIN!
a#include "CPaneBorder.h"                // •• CW TCL: removed <>
a#include "CControl.h"                    // •• CW TCL: removed <>
a#include "CWindow.h"                    // •• CW TCL: removed <>
a#include "TCLUtilities.h"                // •• CW TCL: removed <>
c24,447
e
fCLine.h
i
fCPICTGrid.cp
x533994571,439768763
c0,15
a#include "Global.h"                        // •• CW TCL: removed <>
a#include "TCLUtilities.h"                // •• CW TCL: removed <>
c18,276
e
fCPICTGrid.h
i
fCPICTGridDirector.cp
x104433472,291025652
c0,16
a#include "Global.h"                        // •• CW TCL: removed <>
c18,18
a#include "CWindow.h"                    // •• CW TCL: removed <>
c20,138
e
fCPICTGridDirector.h
i
fCPICTSelector.cp
i
fCPICTSelector.h
i
fCPictureButton.cp
x131893993,366625072
c0,18
a#include "OSChecks.h"                    // •• CW TCL: removed <>
c20,21
a//#include "OSChecks.h"                    // •• CW TCL: once was enough, thank you!
c23,354
e
fCPictureButton.h
i
fCPolyButton.cp
x531289659,196004069
c0,15
a#include "OSChecks.h"                    // •• CW TCL: removed <>
a#include "Commands.h"                    // •• CW TCL: removed <>
a#include "Global.h"                        // •• CW TCL: removed <>
a//#include <OSChecks.h>                    // •• CW TCL: had enough OSChecks last time through...
a#include "CPaneBorder.h"                // •• CW TCL: removed <>
a#include "CControl.h"                    // •• CW TCL: removed <>
a#include "CWindow.h"                    // •• CW TCL: removed <>
a#include "TCLUtilities.h"                // •• CW TCL: removed <>
c24,196
e
fCPolyButton.h
i
fCRectOvalButton.cp
x389148034,415534158
c0,15
a#include "OSChecks.h"                    // •• CW TCL: removed <>
a#include "Commands.h"                    // •• CW TCL: removed <>
a#include "Global.h"                        // •• CW TCL: removed <>
a//#include <OSChecks.h>                    // •• CW TCL: been there, done that
a#include "CPaneBorder.h"                // •• CW TCL: removed <>
a#include "CControl.h"                    // •• CW TCL: removed <>
a#include "CWindow.h"                    // •• CW TCL: removed <>
a#include "TCLUtilities.h"                // •• CW TCL: removed <>
c24,140
e
fCRectOvalButton.h
i
fCRoundRectButton.cp
x125216251,385550985
c0,15
a#include "OSChecks.h"                    // •• CW TCL: removed <>
a#include "Commands.h"                    // •• CW TCL: removed <>
a#include "Global.h"                        // •• CW TCL: removed <>
a//#include <OSChecks.h>                    // •• CW TCL: Hmmm. Think this file’s changed in
a//                                                        the last few nanoseconds? Naahh...
a#include "CPaneBorder.h"                // •• CW TCL: removed <>
a#include "CControl.h"                    // •• CW TCL: removed <>
a#include "CWindow.h"                    // •• CW TCL: removed <>
a#include "TCLUtilities.h"                // •• CW TCL: removed <>
c24,175
e
fCRoundRectButton.h
i
fCSelectorDirector.cp
i
fCSelectorDirector.h
i
fCShapeButton.cp
i
fCShapeButton.h
i
fCStaticText.cp
i
fCStaticText.h
i
fCSubviewDisplayer.cp
i
fCSubviewDisplayer.h
x117726811,26886913
c0,10
a#include "CPane.h"                    // •• CW TCL: removed <>
c12,65
e
fCSwissArmyButton.cp
i
fCSwissArmyButton.h
i
fCTearOffDirector.cp
x438353575,73101313
c0,14
a#include "CFloatDirector.h"                // •• CW TCL
c15,32
e
fCTearOffDirector.h
i
fDialogFunctions.cp
x222087701,448769775
c0,11
a#include "TBUtilities.h"                // •• CW TCL: removed <>
c13,105
e
fDialogFunctions.h
i
fViewUtilities.cp
i
fViewUtilities.h
i
o
z2714,CW TCLHeaders.cp
//
// TCL 2.0 CodeWarrior port
//
//    Precompiled headers
//
//    Use this file to build the precompiled header file, instead
//    of “TCL #includes.cpp” provided by Symantec.
//
//    Eric Scouten, 19 May 1994
//


// prevent multiple compilations

#ifndef CW_TCL_HDR
#define CW_TCL_HDR


// use Metrowerks’ standard precompiled header file

#include <MacHeaders.c>

#undef TRUE                        // redefined in <THINK.h>
#undef FALSE

#pragma cplusplus on            // wonder why this is necessary?


//________________________________________________________________________
//
// several new conditional compilation macros for the CodeWarrior port
//

#define TCL_CW_VERSION 3
    // Set this macro to the current release number of CodeWarrior
    // (currently DR/3). As features are added to CodeWarrior, this
    // macro will be used to maintain compatibility with older
    // versions. NOTE: There is no support for compilation under DR/1.

#define TCL_NO_TEMPLATES
    // This macro triggers the macro substitutions for the TCL templated
    // classes (CPtrArray<>, CList<>, helper methods for CStream). This
    // macro must remain defined until CodeWarrior supports templates.

#if TCL_CW_VERSION<3
#define TCL_NO_PRECOMPILED_CLASS
#endif
    // Needed for compilation under DR/2 since class definitions aren’t
    // permitted in precompiled headers (can be commented out in DR/3).

#if TCL_CW_VERSION>2
#define TCL_NO_MULTIPLE_STATIC_INHERITANCE
#endif
    // Workaround for a new bug (feature-?) in DR/3. A static member field
    // with the same name cannot be multiply inherited. (However, a static member
    // function can be. :) )

#define TCL_NO_DEBUGGER_CALLS
    // Because all the Debugger() calls aren’t trapped by CW’s source-level
    // debugger. It’s just plain annoying to drop into MacsBug all the
    // time (especially in PPC code)!

#define TCL_NO_PATCHES
    // Because LoadSeg_Patch doesn’t seem to work under CW. Applies only
    // to 68K builds.

#define TCL_NO_PRECOMPILED_WATCHDESC
    // Some strange errors occur when precompiling this header.

#if TCL_CW_VERSION>2
#define TCL_USE_PP_EXCEPTIONS
#endif
    // Optional switch to use the PowerPlant exception library instead of Bedrock
    // Exception Library. Requires UException and UDebugging from PowerPlant DR/3.
    // (Added in 1.1 port.)


//________________________________________________________________________
//
// include the TCL standard headers
//

#include "TCL #includes.cpp"

#ifndef TCL_NO_PRECOMPILED_CLASS
#include "CSizeBox.h"                    // •• CW TCL temporary
#endif


// (dis)allow object I/O (you may comment this out when you pre-compile)

#define TCL_OBJECT_IO


// make sure to prevent attempts at including precompiled headers again

#undef TCL_PCH


#endif  // #ifndef CW_TCL_HDR
o